home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / livecd.squashfs / usr / share / autoconf / Autom4te / Request.pm < prev    next >
Text File  |  2006-04-25  |  3KB  |  117 lines
  1. # autoconf -- create `configure' using m4 macros
  2. # Copyright (C) 2001, 2002, 2003  Free Software Foundation, Inc.
  3.  
  4. # This program is free software; you can redistribute it and/or modify
  5. # it under the terms of the GNU General Public License as published by
  6. # the Free Software Foundation; either version 2, or (at your option)
  7. # any later version.
  8.  
  9. # This program is distributed in the hope that it will be useful,
  10. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. # GNU General Public License for more details.
  13.  
  14. # You should have received a copy of the GNU General Public License
  15. # along with this program; if not, write to the Free Software
  16. # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  17. # 02111-1307, USA.
  18.  
  19. package Autom4te::Request;
  20.  
  21. =head1 NAME
  22.  
  23. Autom4te::Request - a single m4 run request
  24.  
  25. =head1 SYNOPSIS
  26.  
  27.   use Autom4te::Request;
  28.  
  29. =head1 DESCRIPTION
  30.  
  31. This perl module provides various general purpose support functions
  32. used in several executables of the Autoconf and Automake packages.
  33.  
  34. =cut
  35.  
  36. use strict;
  37. use Autom4te::Struct;
  38. use Carp;
  39. use Data::Dumper;
  40.  
  41. struct
  42.   (
  43.    # The key of the cache files.
  44.    'id' => "\$",
  45.    # True iff %MACRO contains all the macros we want to trace.
  46.    'valid' => "\$",
  47.    # The include path.
  48.    'path' => '@',
  49.    # The set of input files.
  50.    'input' => '@',
  51.    # The set of macros currently traced.
  52.    'macro' => '%',
  53.   );
  54.  
  55.  
  56. # Serialize a request or all the current requests.
  57. sub marshall($)
  58. {
  59.   my ($caller) = @_;
  60.   my $res = '';
  61.  
  62.   # CALLER is an object: instance method.
  63.   my $marshall = Data::Dumper->new ([$caller]);
  64.   $marshall->Indent(2)->Terse(0);
  65.   $res = $marshall->Dump . "\n";
  66.  
  67.   return $res;
  68. }
  69.  
  70.  
  71. # includes_p ($SELF, @MACRO)
  72. # --------------------------
  73. # Does this request covers all the @MACRO.
  74. sub includes_p
  75. {
  76.   my ($self, @macro) = @_;
  77.  
  78.   foreach (@macro)
  79.     {
  80.       return 0
  81.     if ! exists ${$self->macro}{$_};
  82.     }
  83.   return 1;
  84. }
  85.  
  86.  
  87. =head1 SEE ALSO
  88.  
  89. L<Autom4te::C4che>
  90.  
  91. =head1 HISTORY
  92.  
  93. Written by Akim Demaille E<lt>F<akim@freefriends.org>E<gt>.
  94.  
  95. =cut
  96.  
  97.  
  98.  
  99. 1; # for require
  100.  
  101. ### Setup "GNU" style for perl-mode and cperl-mode.
  102. ## Local Variables:
  103. ## perl-indent-level: 2
  104. ## perl-continued-statement-offset: 2
  105. ## perl-continued-brace-offset: 0
  106. ## perl-brace-offset: 0
  107. ## perl-brace-imaginary-offset: 0
  108. ## perl-label-offset: -2
  109. ## cperl-indent-level: 2
  110. ## cperl-brace-offset: 0
  111. ## cperl-continued-brace-offset: 0
  112. ## cperl-label-offset: -2
  113. ## cperl-extra-newline-before-brace: t
  114. ## cperl-merge-trailing-else: nil
  115. ## cperl-continued-statement-offset: 2
  116. ## End:
  117.